home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / curdle.com / CURDL.INC < prev    next >
Encoding:
Text File  |  1989-01-10  |  1.6 KB  |  36 lines
  1.  
  2. (*
  3.         Public domain software from John M. Majkrzak, All rights reserved.
  4.                                     1180 Todd Dr.
  5.                                     Arden Hills, MN  55112
  6.                                     CIS# 76617,264
  7.  
  8.         This include file will take care of the details involved in linking
  9.         in the cURDL.OBJ file which is the software this is all about.
  10.  
  11.         cURDL() will take care of watching the screen boundaries when your
  12.         Turbo Pascal program lets a user move about the screen directly as
  13.         might be done in a screen painting routine or even some data entry
  14.         programs.  Turbo Pascal stores information about the screen in
  15.         variables WindMin and WindMax.  See the demo program CURDLE.PAS
  16.         for further insight.
  17.  
  18. *)
  19.  
  20.         {These variables are referenced by cURDL and must have valid info.}
  21.     Const
  22.       cwPage: Word = 0; {Use this to specify which page cURDL looks on.}
  23.                         {Page 0 is used by default.  Be sure to change }
  24.                         {this if your writing on some other page.      }
  25.     Var
  26.       cwMin: Word absolute WindMin; {The cURDL() function needs to have}
  27.       cwMax: Word absolute WindMax; {Min-Max values to work within.}
  28.               {Absolute references above give your program more flexibilty }
  29.               {instead of having cURDL() use WindMin-WindMax directly.}
  30.  
  31.   {$IfOpt F-} {$F+} {$Define cwNotFar} {$EndIf} {Must be declared as far}
  32.  
  33.   Function curdl(CurDir: Char; VAR CurRow, CurCol: Byte):Boolean; external;
  34.   {$L curdl.obj}
  35.  
  36.   {$IfDef cwNotFar} {$F-} {$UnDef cwNotFar} {$EndIf} {Turn off forced far}